home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Text / Edit / Emacs / install < prev    next >
Text File  |  1995-11-24  |  1KB  |  46 lines
  1. (if (= @language "deutsch")
  2.     (
  3.         (SET Intro  "Wilkommen zum Installer-Script für GNU-Emacs 18.59. Es werden ca 7MB freier Plattenplatz benötigt")
  4.         (SET Where  "Wohin soll der GNU-Emacs hinkopiert werden ? Es wird ein Verzeichnis namens EMACS abgelegt")
  5.         (SET Addit  "Es werden nun noch einige Zeilen an s:user-startup angefügt.")
  6.     )
  7. )
  8.  
  9. (if (= @language "english")
  10.     (
  11.         (SET Intro  "Welcome to the installer-script for GNU-Rmacs 18.59. You need about 7MB free disk-space")
  12.         (SET Where  "Where do you want to place the GNU-Emacs package ? A drwaer called EMACS will be created")
  13.         (SET Addit  "Some lines will be added to s:user-startup.")
  14.     )
  15. )
  16.  
  17. (MESSAGE Intro)
  18.  
  19. (SET Wuck
  20.     (ASKDIR
  21.         (PROMPT Where)
  22.         (HELP   "")
  23.         (DEFAULT    "sys:")
  24.     )
  25. )
  26.  
  27. (SET DestDir (TACKON Wuck "EMACS"))
  28.  
  29. (RUN (cat "makedir \""DestDir"\""))
  30.  
  31. (COPYFILES
  32.     (SOURCE ":Text/Edit/Emacs")
  33.     (DEST   DestDir)
  34.     (ALL)
  35.     (INFOS)
  36. )
  37.  
  38. (STARTUP @app-name
  39.     (PROMPT Addit)
  40.     (HELP   "")
  41.     (COMMAND
  42.         (CAT "assign GNUEmacs: \""(TACKON DestDir "lib/emacs/18.59/")"\" Add\n" "assign c: gnuemacs:bin Add\n")
  43.     )
  44. )
  45. (RUN (CAT "assign GNUEmacs: \""(TACKON DestDir "lib/emacs/18.59/")"\" Add\n" "assign c: gnuemacs:bin Add\n"))
  46.